home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / type.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  24.4 KB  |  522 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    TYPE-ERROR REMOVE-OLD-DEFINITIONS
  5.    #Y(TYPE-ERROR #11Y(00 02 00 00 00 03 D4 AB AB 5A 02)
  6.       "~S: invalid type specification ~S"
  7.   )  )
  8. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  9.    TYPEP REMOVE-OLD-DEFINITIONS
  10.    #Y(TYPEP
  11.       #262Y(00 02 00 00 00 03 5B AA 86 2D 80 8E AA D4 36 01 78 98 00 1B 0A AA
  12.             D5 36 01 78 98 00 1C 80 CF 14 AC 34 01 19 04 AB A9 AC 59 01 1A 80
  13.             B9 AA AC 30 57 19 04 DC D8 96 54 70 5A 02 AB 8C 03 36 03 84 DC 13
  14.             02 19 04 94 54 70 86 2D 68 94 54 53 56 14 AC 34 01 1B 6D 00 19 04
  15.             AB 95 54 70 26 FF A7 51 19 04 8C 02 5B 1A 11 8C 02 5B 1A 1F 7E 01
  16.             00 AD A9 26 FF 92 1C 19 7A 01 A9 84 B6 70 02 19 06 7E 01 00 AD A9
  17.             26 FF 7F 1B 73 7A 01 A9 84 B6 70 00 19 06 14 AC 96 54 35 01 19 04
  18.             94 1F 80 62 8B 02 86 2D 80 5C 8B 02 24 06 07 AA 6A 63 23 07 FF 95
  19.             8B 02 23 09 FF 84 8B 02 24 0A 07 AA 6A 63 23 07 FF 96 8B 02 23 0B
  20.             FF 9A 8B 02 23 0C FF 99 8B 02 D5 36 01 78 98 00 1B FF B9 8B 02 D6
  21.             36 01 78 98 00 1C 1D AB A9 96 14 6E 01 27 02 06 FF 18 AA D6 36 01
  22.             78 98 00 1B FF 2D AA D7 36 01 85 98 FF 2D D8 AB 2E 05 19 04
  23.            )
  24.       TYPE-SYMBOL TYPE-LIST DEFTYPE-EXPANDER DEFSTRUCT-DESCRIPTION TYPEP
  25.       TYPE-ERROR SATISFIES 2. "~S: argument to SATISFIES must be a symbol: ~S"
  26.       MEMBER NOT AND OR
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ARRAY
  29.    TYPE-SYMBOL #.#'ARRAYP
  30.   )
  31. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ATOM
  32.    TYPE-SYMBOL #.#'ATOM
  33.   )
  34. #Y(#:TOP-LEVEL-FORM-6 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIGNUM
  35.    TYPE-SYMBOL
  36.    #Y(TYPE-SYMBOL-BIGNUM
  37.       #19Y(00 01 00 00 00 02 A9 30 35 1E 06 A9 30 36 51 19 02 19 02)
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-7 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIT
  40.    TYPE-SYMBOL
  41.    #Y(TYPE-SYMBOL-BIT
  42.       #18Y(00 01 00 00 00 02 A9 BE 52 1D 05 A9 BF 52 19 02 19 02) 0. 1.
  43.   )  )
  44. #Y(#:TOP-LEVEL-FORM-8 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIT-VECTOR
  45.    TYPE-SYMBOL #.#'BIT-VECTOR-P
  46.   )
  47. #Y(#:TOP-LEVEL-FORM-9 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) CHARACTER
  48.    TYPE-SYMBOL #.#'CHARACTERP
  49.   )
  50. #Y(#:TOP-LEVEL-FORM-10 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COMMON
  51.    TYPE-SYMBOL #.#'COMMONP
  52.   )
  53. #Y(#:TOP-LEVEL-FORM-11 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  54.    COMPILED-FUNCTION TYPE-SYMBOL #.#'COMPILED-FUNCTION-P
  55.   )
  56. #Y(#:TOP-LEVEL-FORM-12 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COMPLEX
  57.    TYPE-SYMBOL #.#'COMPLEXP
  58.   )
  59. #Y(#:TOP-LEVEL-FORM-13 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) CONS
  60.    TYPE-SYMBOL #.#'CONSP
  61.   )
  62. #Y(#:TOP-LEVEL-FORM-14 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  63.    DOUBLE-FLOAT TYPE-SYMBOL #.#'DOUBLE-FLOAT-P
  64.   )
  65. #Y(#:TOP-LEVEL-FORM-15 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FIXNUM
  66.    TYPE-SYMBOL #.#'FIXNUMP
  67.   )
  68. #Y(#:TOP-LEVEL-FORM-16 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FLOAT
  69.    TYPE-SYMBOL #.#'FLOATP
  70.   )
  71. #Y(#:TOP-LEVEL-FORM-17 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FUNCTION
  72.    TYPE-SYMBOL #.#'FUNCTIONP
  73.   )
  74. #Y(#:TOP-LEVEL-FORM-18 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) HASH-TABLE
  75.    TYPE-SYMBOL #.#'HASH-TABLE-P
  76.   )
  77. #Y(#:TOP-LEVEL-FORM-19 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) INTEGER
  78.    TYPE-SYMBOL #.#'INTEGERP
  79.   )
  80. #Y(#:TOP-LEVEL-FORM-20 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) KEYWORD
  81.    TYPE-SYMBOL #.#'KEYWORDP
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-21 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) LIST
  84.    TYPE-SYMBOL #.#'LISTP
  85.   )
  86. #Y(#:TOP-LEVEL-FORM-22 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) LONG-FLOAT
  87.    TYPE-SYMBOL #.#'LONG-FLOAT-P
  88.   )
  89. #Y(#:TOP-LEVEL-FORM-23 #13Y(00 00 00 00 00 01 5B D4 D5 30 9C 19 01) TYPE-SYMBOL
  90.    #Y(TYPE-SYMBOL-NIL #9Y(00 01 00 00 00 02 00 19 02))
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-24 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) NULL
  93.    TYPE-SYMBOL #.#'NULL
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-25 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) NUMBER
  96.    TYPE-SYMBOL #.#'NUMBERP
  97.   )
  98. #Y(#:TOP-LEVEL-FORM-26 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PACKAGE
  99.    TYPE-SYMBOL #.#'PACKAGEP
  100.   )
  101. #Y(#:TOP-LEVEL-FORM-27 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) PATHNAME
  102.    TYPE-SYMBOL #.#'PATHNAMEP
  103.   )
  104. #Y(#:TOP-LEVEL-FORM-28 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  105.    RANDOM-STATE TYPE-SYMBOL #.#'RANDOM-STATE-P
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-29 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) RATIO
  108.    TYPE-SYMBOL
  109.    #Y(TYPE-SYMBOL-RATIO
  110.       #19Y(00 01 00 00 00 02 A9 30 37 1E 06 A9 30 35 51 19 02 19 02)
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-30 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) RATIONAL
  113.    TYPE-SYMBOL #.#'RATIONALP
  114.   )
  115. #Y(#:TOP-LEVEL-FORM-31 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) READTABLE
  116.    TYPE-SYMBOL #.#'READTABLEP
  117.   )
  118. #Y(#:TOP-LEVEL-FORM-32 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) REAL
  119.    TYPE-SYMBOL #.#'REALP
  120.   )
  121. #Y(#:TOP-LEVEL-FORM-33 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SEQUENCE
  122.    TYPE-SYMBOL #.#'SEQUENCEP
  123.   )
  124. #Y(#:TOP-LEVEL-FORM-34 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SHORT-FLOAT
  125.    TYPE-SYMBOL #.#'SHORT-FLOAT-P
  126.   )
  127. #Y(#:TOP-LEVEL-FORM-35 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  128.    SIMPLE-ARRAY TYPE-SYMBOL #.#'SIMPLE-ARRAY-P
  129.   )
  130. #Y(#:TOP-LEVEL-FORM-36 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  131.    SIMPLE-BIT-VECTOR TYPE-SYMBOL #.#'SIMPLE-BIT-VECTOR-P
  132.   )
  133. #Y(#:TOP-LEVEL-FORM-37 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  134.    SIMPLE-STRING TYPE-SYMBOL #.#'SIMPLE-STRING-P
  135.   )
  136. #Y(#:TOP-LEVEL-FORM-38 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  137.    SIMPLE-VECTOR TYPE-SYMBOL #.#'SIMPLE-VECTOR-P
  138.   )
  139. #Y(#:TOP-LEVEL-FORM-39 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  140.    SINGLE-FLOAT TYPE-SYMBOL #.#'SINGLE-FLOAT-P
  141.   )
  142. #Y(#:TOP-LEVEL-FORM-40 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  143.    STANDARD-CHAR TYPE-SYMBOL
  144.    #Y(TYPE-SYMBOL-STANDARD-CHAR
  145.       #18Y(00 01 00 00 00 02 A9 30 43 1E 05 A9 2F 1D 19 02 19 02)
  146.   )  )
  147. #Y(#:TOP-LEVEL-FORM-41 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STREAM
  148.    TYPE-SYMBOL #.#'STREAMP
  149.   )
  150. #Y(#:TOP-LEVEL-FORM-42 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRING
  151.    TYPE-SYMBOL #.#'STRINGP
  152.   )
  153. #Y(#:TOP-LEVEL-FORM-43 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRING-CHAR
  154.    TYPE-SYMBOL
  155.    #Y(TYPE-SYMBOL-STRING-CHAR
  156.       #18Y(00 01 00 00 00 02 A9 30 43 1E 05 A9 2F 1F 19 02 19 02)
  157.   )  )
  158. #Y(#:TOP-LEVEL-FORM-44 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRUCTURE
  159.    TYPE-SYMBOL
  160.    #Y(TYPE-SYMBOL-STRUCTURE
  161.       #30Y(00 01 00 00 00 02 A9 6A 4E A8 30 2D 1E 0E A8 D4 36 01 30 98 1E 06 A8
  162.            AB 30 57 19 03 19 03
  163.           )
  164.       DEFSTRUCT-DESCRIPTION
  165.   )  )
  166. #Y(#:TOP-LEVEL-FORM-45 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SYMBOL
  167.    TYPE-SYMBOL #.#'SYMBOLP
  168.   )
  169. #Y(#:TOP-LEVEL-FORM-46 #13Y(00 00 00 00 00 01 5C D4 D5 30 9C 19 01) TYPE-SYMBOL
  170.    #Y(TYPE-SYMBOL-T #9Y(00 01 00 00 00 02 02 19 02))
  171.   )
  172. #Y(#:TOP-LEVEL-FORM-47 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) VECTOR
  173.    TYPE-SYMBOL #.#'VECTORP
  174.   )
  175. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  176.    UPGRADED-ARRAY-ELEMENT-TYPE REMOVE-OLD-DEFINITIONS
  177.    #Y(UPGRADED-ARRAY-ELEMENT-TYPE
  178.       #93Y(00 01 00 00 00 02 93 25 00 3F 93 19 02 C1 19 05 C3 19 05 C5 19 05 C7
  179.            19 05 C9 19 05 CB 19 05 A8 6A E8 A8 D6 87 01 2F 65 A8 D8 87 01 2F 62
  180.            A8 DA 87 01 2F 5F A8 DC 87 01 2F 5C A8 DE 87 01 2F 59 A8 E0 87 01 2F
  181.            56 02 19 05 A9 2D 01 3E 02 A9 86 35 08 A9 85 A8 04 A8 85 35 45 02 19
  182.            04
  183.           )
  184.       #S(HASH-TABLE EQ (T . 1.) (STRING-CHAR . 1.) (BIT . 1.)) SUBTYPE-INTEGER
  185.       1. BIT 2. (UNSIGNED-BYTE 2.) 4. (UNSIGNED-BYTE 4.) 8. (UNSIGNED-BYTE 8.)
  186.       16. (UNSIGNED-BYTE 16.) 32. (UNSIGNED-BYTE 32.)
  187.   )  )
  188. #Y(#:TOP-LEVEL-FORM-49 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) ARRAY
  189.    TYPE-LIST
  190.    #Y(TYPE-LIST-ARRAY
  191.       #74Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB 30 46 1E 33 AA 23
  192.            00 0A AB 69 04 AB 67 01 30 29 1E 25 A9 BE 52 1D 20 A9 85 2F 14 A9 6A
  193.            63 AC 69 05 30 28 1E 12 D6 AA AD 69 07 31 01 26 19 04 A9 AC 69 05 30
  194.            28 19 04 19 04
  195.           )
  196.       * UPGRADED-ARRAY-ELEMENT-TYPE
  197.       #Y(TYPE-LIST-ARRAY-1
  198.          #19Y(00 02 00 00 00 03 AA BE 52 1D 06 AA AA 30 28 19 03 19 03) *
  199.   )  )  )
  200. #Y(#:TOP-LEVEL-FORM-50 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  201.    SIMPLE-ARRAY TYPE-LIST
  202.    #Y(TYPE-LIST-SIMPLE-ARRAY
  203.       #74Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB 30 47 1E 33 AA 23
  204.            00 0A AB 69 04 AB 67 01 30 29 1E 25 A9 BE 52 1D 20 A9 85 2F 14 A9 6A
  205.            63 AC 69 05 30 28 1E 12 D6 AA AD 69 07 31 01 26 19 04 A9 AC 69 05 30
  206.            28 19 04 19 04
  207.           )
  208.       * UPGRADED-ARRAY-ELEMENT-TYPE
  209.       #Y(TYPE-LIST-SIMPLE-ARRAY-1
  210.          #19Y(00 02 00 00 00 03 AA BE 52 1D 06 AA AA 30 28 19 03 19 03) *
  211.   )  )  )
  212. #Y(#:TOP-LEVEL-FORM-51 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) VECTOR
  213.    TYPE-LIST
  214.    #Y(TYPE-LIST-VECTOR
  215.       #51Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB 30 49 1E 1C AA 23
  216.            00 0A AB 69 04 AB 67 01 30 29 1E 0E A9 BE 52 1D 09 AB D6 69 06 AA 30
  217.            28 19 04 19 04
  218.           )
  219.       * UPGRADED-ARRAY-ELEMENT-TYPE 0.
  220.   )  )
  221. #Y(#:TOP-LEVEL-FORM-52 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  222.    SIMPLE-VECTOR TYPE-LIST
  223.    #Y(TYPE-LIST-SIMPLE-VECTOR
  224.       #32Y(00 01 00 01 00 08 37 01 02 BE EB AA 30 4A 1E 0E A9 BE 52 1D 09 A9 AB
  225.            D5 69 06 30 28 19 03 19 03
  226.           )
  227.       * 0.
  228.   )  )
  229. #Y(#:TOP-LEVEL-FORM-53 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) COMPLEX
  230.    TYPE-LIST
  231.    #Y(TYPE-LIST-COMPLEX
  232.       #48Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 94 EB AB 30 3D 1E 19 AA 23
  233.            00 08 AB 6A DA AB 2E 01 1E 0D A9 BE 52 1D 08 AB 6A DB AA 2E 01 19 04
  234.            19 04
  235.           )
  236.       * TYPEP
  237.   )  )
  238. #Y(#:TOP-LEVEL-FORM-54 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) INTEGER
  239.    TYPE-LIST
  240.    #Y(TYPE-LIST-INTEGER
  241.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  242.            03 19 04
  243.           )
  244.       * #.#'INTEGERP INTEGER TYPEP-NUMBER-TEST
  245.   )  )
  246. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  247.    TYPEP-NUMBER-TEST REMOVE-OLD-DEFINITIONS
  248.    #Y(TYPEP-NUMBER-TEST
  249.       #113Y(00 05 00 00 00 06 AA AE 34 01 1E 80 62 AC 23 00 1D AA AD 34 01 1B
  250.             38 96 1F 3E 96 54 1B 3A AA 8B 05 34 01 1C 33 8B 04 AE 31 01 2D 1E
  251.             80 41 AB BE 52 1D 3C AA AC 34 01 1B 27 95 1F 0B 95 54 1B 07 AA 8B
  252.             04 34 01 1B 20 D7 D6 AB AC AD B0 5A 05 AC AE 31 01 2F 1E 19 1A 56
  253.             D5 D6 AB AC AD B1 5A 05 AB AE 31 01 30 19 06 8B 03 AE 31 01 2E 19
  254.             06 19 06
  255.            )
  256.       * "~S: argument to ~S must be *, ~S or a list of ~S: ~S" TYPEP
  257.       "~S: argument to ~S must be *, ~S or a list of ~S: ~S"
  258.   )  )
  259. #Y(#:TOP-LEVEL-FORM-56 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) MOD
  260.    TYPE-LIST
  261.    #Y(TYPE-LIST-MOD
  262.       #36Y(00 02 00 00 00 03 A9 86 35 13 AA 30 35 1E 13 D6 AB 31 01 2F 1E 0C AA
  263.            AA 31 01 2D 19 03 D4 D5 AB 5A 02 19 03
  264.           )
  265.       "~S: argument to MOD must be an integer: ~S" TYPEP 0.
  266.   )  )
  267. #Y(#:TOP-LEVEL-FORM-57 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SIGNED-BYTE
  268.    TYPE-LIST
  269.    #Y(TYPE-LIST-SIGNED-BYTE
  270.       #45Y(00 01 00 01 00 08 37 01 02 BE EB A9 23 00 04 A9 86 35 13 AA 30 35 1E
  271.            13 A9 BE 52 1D 0E AA 6A E8 AA 31 01 2D 19 03 D5 D6 AB 5A 02 19 03
  272.           )
  273.       * "~S: argument to SIGNED-BYTE must be an integer or * : ~S" TYPEP
  274.   )  )
  275. #Y(#:TOP-LEVEL-FORM-58 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  276.    UNSIGNED-BYTE TYPE-LIST
  277.    #Y(TYPE-LIST-UNSIGNED-BYTE
  278.       #51Y(00 01 00 01 00 08 37 01 02 BE EB A9 23 00 04 A9 86 35 19 AA 30 35 1E
  279.            19 AA 30 A8 51 1E 13 A9 BE 52 1D 0E AA 6A E8 AA 31 01 2F 19 03 D5 D6
  280.            AB 5A 02 19 03
  281.           )
  282.       * "~S: argument to UNSIGNED-BYTE must be an integer or * : ~S" TYPEP
  283.   )  )
  284. #Y(#:TOP-LEVEL-FORM-59 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) REAL
  285.    TYPE-LIST
  286.    #Y(TYPE-LIST-REAL
  287.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  288.            03 19 04
  289.           )
  290.       * #.#'REALP REAL TYPEP-NUMBER-TEST
  291.   )  )
  292. #Y(#:TOP-LEVEL-FORM-60 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) RATIONAL
  293.    TYPE-LIST
  294.    #Y(TYPE-LIST-RATIONAL
  295.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  296.            03 19 04
  297.           )
  298.       * #.#'RATIONALP RATIONAL TYPEP-NUMBER-TEST
  299.   )  )
  300. #Y(#:TOP-LEVEL-FORM-61 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) FLOAT
  301.    TYPE-LIST
  302.    #Y(TYPE-LIST-FLOAT
  303.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  304.            03 19 04
  305.           )
  306.       * #.#'FLOATP FLOAT TYPEP-NUMBER-TEST
  307.   )  )
  308. #Y(#:TOP-LEVEL-FORM-62 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) SHORT-FLOAT
  309.    TYPE-LIST
  310.    #Y(TYPE-LIST-SHORT-FLOAT
  311.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  312.            03 19 04
  313.           )
  314.       * #.#'SHORT-FLOAT-P SHORT-FLOAT TYPEP-NUMBER-TEST
  315.   )  )
  316. #Y(#:TOP-LEVEL-FORM-63 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  317.    SINGLE-FLOAT TYPE-LIST
  318.    #Y(TYPE-LIST-SINGLE-FLOAT
  319.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  320.            03 19 04
  321.           )
  322.       * #.#'SINGLE-FLOAT-P SINGLE-FLOAT TYPEP-NUMBER-TEST
  323.   )  )
  324. #Y(#:TOP-LEVEL-FORM-64 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  325.    DOUBLE-FLOAT TYPE-LIST
  326.    #Y(TYPE-LIST-DOUBLE-FLOAT
  327.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  328.            03 19 04
  329.           )
  330.       * #.#'DOUBLE-FLOAT-P DOUBLE-FLOAT TYPEP-NUMBER-TEST
  331.   )  )
  332. #Y(#:TOP-LEVEL-FORM-65 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) LONG-FLOAT
  333.    TYPE-LIST
  334.    #Y(TYPE-LIST-LONG-FLOAT
  335.       #26Y(00 01 00 02 00 0D 37 02 02 BE EC 37 01 02 BE EB AB AB AB D5 D6 2B 05
  336.            03 19 04
  337.           )
  338.       * #.#'LONG-FLOAT-P LONG-FLOAT TYPEP-NUMBER-TEST
  339.   )  )
  340. #Y(#:TOP-LEVEL-FORM-66 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) STRING
  341.    TYPE-LIST
  342.    #Y(TYPE-LIST-STRING
  343.       #32Y(00 01 00 01 00 08 37 01 02 BE EB AA 30 2E 1E 0E A9 BE 52 1D 09 A9 AB
  344.            D5 69 06 30 28 19 03 19 03
  345.           )
  346.       * 0.
  347.   )  )
  348. #Y(#:TOP-LEVEL-FORM-67 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  349.    SIMPLE-STRING TYPE-LIST
  350.    #Y(TYPE-LIST-SIMPLE-STRING
  351.       #32Y(00 01 00 01 00 08 37 01 02 BE EB AA 30 4B 1E 0E A9 BE 52 1D 09 A9 AB
  352.            D5 69 06 30 28 19 03 19 03
  353.           )
  354.       * 0.
  355.   )  )
  356. #Y(#:TOP-LEVEL-FORM-68 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01) BIT-VECTOR
  357.    TYPE-LIST
  358.    #Y(TYPE-LIST-BIT-VECTOR
  359.       #32Y(00 01 00 01 00 08 37 01 02 BE EB AA 30 48 1E 0E A9 BE 52 1D 09 A9 AB
  360.            D5 69 06 30 28 19 03 19 03
  361.           )
  362.       * 0.
  363.   )  )
  364. #Y(#:TOP-LEVEL-FORM-69 #13Y(00 00 00 00 00 01 D4 D5 D6 30 9C 19 01)
  365.    SIMPLE-BIT-VECTOR TYPE-LIST
  366.    #Y(TYPE-LIST-SIMPLE-BIT-VECTOR
  367.       #32Y(00 01 00 01 00 08 37 01 02 BE EB AA 30 4C 1E 0E A9 BE 52 1D 09 A9 AB
  368.            D5 69 06 30 28 19 03 19 03
  369.           )
  370.       * 0.
  371.   )  )
  372. #Y(#:TOP-LEVEL-FORM-70 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  373.    %THE REMOVE-OLD-DEFINITIONS
  374.    #Y(%THE
  375.       #297Y(00 02 00 00 00 03 93 1F 05 8B 01 23 00 0B 94 20 81 12 00 14 AA 2E
  376.             03 19 03 AA 8C 02 1A 10 93 1F 80 7A 8B 01 8B 01 82 03 80 72 7A 01
  377.             7A 00 92 1F 09 8B 00 D5 D6 36 02 84 DC 64 92 1F 3F 8B 00 24 04 3A
  378.             1A 2A 93 1F 80 43 1A 80 51 00 19 06 AA 8B 02 82 03 77 7A 01 16 01
  379.             1A 31 7A 01 20 70 DA AD 5A 01 93 1F 09 8B 01 8B 01 82 03 30 7A 01
  380.             7A 00 92 1F 09 8B 00 D5 D6 36 02 84 DC 66 92 1F 45 8B 00 A8 23 05
  381.             55 A8 24 07 55 16 01 92 1F 80 92 8B 00 24 07 38 7A 00 A9 6A 63 86
  382.             A9 03 00 19 05 5B 1A 80 5F DA AE 5A 01 00 19 08 7A 01 16 01 1A 80
  383.             70 AA 1A 10 00 19 07 8B 00 AA D6 36 02 84 DC 74 92 54 54 EA 92 20
  384.             70 16 02 1A 80 55 92 1F 80 51 DA AC 5A 01 8B 01 A8 86 34 49 A8 6A
  385.             63 24 08 43 8B 00 86 2D FF BD 8B 00 6A A0 63 09 69 FC AC A9 36 01
  386.             6A 99 94 54 70 82 03 FF AC A8 7B 02 16 02 7A 01 93 1F 09 8B 01 D5
  387.             D6 36 02 84 DC 46 93 1F 06 8B 01 23 0A FF 93 AA DF 36 01 86 99 FF
  388.             92 16 01 02 19 05 94 53 1A FE EA
  389.            )
  390.       VALUES #.LAMBDA-LIST-KEYWORDS #.#'EQ TYPEP &OPTIONAL &REST
  391.       "Invalid type specifier ~S" &KEY 2. *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS
  392.       :ALLOW-OTHER-KEYS
  393.   )  )
  394. #Y(#:TOP-LEVEL-FORM-71 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  395.    CANONICALIZE-TYPE REMOVE-OLD-DEFINITIONS
  396.    #Y(CANONICALIZE-TYPE
  397.       #334Y(00 01 00 00 00 02 A9 85 2D 24 93 1F 81 3D 8B 01 86 2D 81 37 8B 01
  398.             D4 36 01 6A 98 8A 00 80 4F 14 95 14 6E 01 27 01 04 5E 14 AB 59 01
  399.             1A 73 A9 D4 36 01 6A 98 89 00 71 94 25 01 81 0C C0 19 03 C1 19 03
  400.             C2 19 03 C3 19 03 C4 19 03 C5 19 03 C6 19 03 C7 19 03 C8 19 03 C9
  401.             19 03 CA 19 03 CB 19 03 CC 19 03 CD 19 03 AA 73 01 27 01 04 FF 98
  402.             94 53 25 10 80 D4 CF 19 03 94 54 70 A8 86 35 06 A8 E6 87 01 30 04
  403.             E7 AC 2E 14 E9 D0 1A 80 92 D3 19 04 94 54 53 1B 02 03 16 14 A8 23
  404.             16 71 A8 86 35 04 A8 85 A7 04 E7 AC 2E 14 5D 17 8E 01 6A AF E9 A9
  405.             31 00 34 1A 80 85 03 18 19 04 94 54 53 1B 02 03 16 14 A8 23 16 70
  406.             A8 86 35 06 A8 E6 87 01 30 04 E7 AC 2E 14 5D 17 A9 6A AF E9 D0 1A
  407.             80 5D 94 54 53 1B 02 03 16 14 03 19 1A 23 94 54 53 1B 02 03 16 14
  408.             03 19 1A 26 94 54 53 1B 02 03 16 14 5D 19 02 1A 1C 94 54 53 1B 02
  409.             03 16 14 03 1C 14 03 1A 1A 0D 94 54 53 1B 02 03 16 14 03 1C 14 03
  410.             1B 14 AA 73 01 59 03 19 04 94 54 53 1B 02 03 16 14 95 54 54 53 1B
  411.             02 03 16 14 5D 1C 94 14 AA 73 01 59 03 19 05 94 54 1C FF 2C 94 19
  412.             03 00 19 02
  413.            )
  414.       DEFTYPE-EXPANDER
  415.       #S(HASH-TABLE EQ (LONG-FLOAT . 44.) (DOUBLE-FLOAT . 44.)
  416.          (SINGLE-FLOAT . 44.) (SHORT-FLOAT . 44.) (FLOAT . 44.)
  417.          (RATIONAL . 44.) (INTEGER . 44.) (REAL . 44.) (COMPLEX . 44.)
  418.          (SIMPLE-VECTOR . 44.) (VECTOR . 44.) (SIMPLE-STRING . 44.)
  419.          (STRING . 44.) (SIMPLE-BIT-VECTOR . 44.) (BIT-VECTOR . 44.)
  420.          (SIMPLE-ARRAY . 44.) (ARRAY . 44.) (T . 41.) (STRING-CHAR . 38.)
  421.          (STANDARD-CHAR . 35.) (SEQUENCE . 32.) (RATIO . 29.) (NULL . 26.)
  422.          (NIL . 23.) (LIST . 20.) (KEYWORD . 17.) (FIXNUM . 14.) (COMMON . 11.)
  423.          (BIT . 8.) (BIGNUM . 5.) (ATOM . 2.)
  424.         )
  425.       (NOT CONS) (AND INTEGER (NOT FIXNUM)) (INTEGER 0. 1.)
  426.       (OR CONS SYMBOL NUMBER ARRAY STANDARD-CHAR STREAM PACKAGE HASH-TABLE
  427.        READTABLE PATHNAME RANDOM-STATE STRUCTURE
  428.       )
  429.       (INTEGER #.MOST-NEGATIVE-FIXNUM #.MOST-POSITIVE-FIXNUM)
  430.       (AND SYMBOL (SATISFIES KEYWORDP)) (OR CONS (MEMBER NIL)) (OR)
  431.       (MEMBER NIL) (AND RATIONAL (NOT INTEGER)) (OR LIST VECTOR)
  432.       (AND CHARACTER (SATISFIES STRING-CHAR-P) (SATISFIES STANDARD-CHAR-P))
  433.       (AND CHARACTER (SATISFIES STRING-CHAR-P)) (AND)
  434.       #S(HASH-TABLE EQ (VECTOR . 181.) (STRING . 160.) (BIT-VECTOR . 145.)
  435.          (SIMPLE-VECTOR . 132.) (SIMPLE-STRING . 120.)
  436.          (SIMPLE-BIT-VECTOR . 108.) (UNSIGNED-BYTE . 72.) (SIGNED-BYTE . 30.)
  437.          (MOD . 5.) (MEMBER . 209.)
  438.         )
  439.       (OR) 0. SUBTYPEP TYPE-ERROR INTEGER * 2. (INTEGER 0. *) SIMPLE-ARRAY BIT
  440.       STRING-CHAR ARRAY
  441.   )  )
  442. #Y(#:TOP-LEVEL-FORM-72 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  443.    SUBTYPEP REMOVE-OLD-DEFINITIONS
  444.    #Y(SUBTYPEP
  445.       #884Y(00 02 00 00 00 03 AA 2D 00 EC A9 2D 00 EB AA AA 85 29 81 04 94 1F
  446.             16 8B 02 23 01 29 8B 02 24 03 06 AA 6A 63 23 04 39 8B 02 23 05 80
  447.             4C 93 1F 80 CC 8B 01 24 03 80 BB A9 6A 63 24 04 80 B4 5B 00 14 3C
  448.             02 19 03 8C 02 5B 1A 0E 00 1A 82 0D 7E 01 00 14 AC 82 02 74 7A 01
  449.             A9 84 B6 72 02 1A 81 FB 93 1F 5B 8B 01 24 03 56 A9 6A 63 24 04 50
  450.             93 54 70 95 54 70 27 02 05 FF 8D 8C 02 5B 1A 11 7E 01 00 14 AC 26
  451.             FF 80 3E 02 8A 01 20 16 02 7A 01 A9 84 B6 6B 02 1A 81 C4 8C 01 5B
  452.             A9 83 B6 19 7E 01 00 AC A9 26 FF 60 3E 02 89 01 06 5B A9 3C 02 19
  453.             07 16 02 7A 01 1A 63 02 1A 81 A0 02 1A 81 9C 8C 01 5B A9 83 B6 27
  454.             7E 01 00 AC A9 26 FF 38 1B 6B 7A 01 1A 6E 8C 02 5B 1A 10 02 1A 81
  455.             7E 7E 01 00 14 AC 26 FF 21 1B 72 7A 01 A9 84 B6 70 5B 00 1A 81 6B
  456.             8B 01 23 06 FF 9F 8B 01 23 05 42 94 1F 05 8B 02 23 06 4F AA 86 2D
  457.             3E AA DB 36 01 86 98 37 A9 86 2D 33 A9 24 08 05 5C 02 1A FF 23 A9
  458.             DB 36 01 86 98 23 AA DB 36 01 6A 98 C7 57 14 AA DB 36 01 6A 98 C7
  459.             57 14 1A 06 02 1A 81 1F 7A 01 A9 93 21 76 93 20 77 16 02 94 20 04
  460.             AA 59 01 EC 94 53 25 0A FE EA 94 54 53 1A 80 63 95 54 54 53 1A 80
  461.             64 02 1A 80 F6 95 54 53 1A 16 96 54 54 53 1A 17 E2 AB AA 31 01 26
  462.             16 02 1A 80 E0 95 54 1B 66 C9 14 96 54 54 1B 64 C9 14 A9 23 0B 0F
  463.             AB C9 52 51 1C 20 AB 67 0D AA 67 0D 86 29 17 A8 C9 52 1B 12 AA 86
  464.             34 0E A8 86 34 0A AA 6A 63 A9 6A 63 85 28 FF BE 16 02 1A 80 A4 94
  465.             54 1B FF 98 C9 14 95 54 54 1B FF 96 C9 14 AB 23 0C FF 96 AB 97 53
  466.             21 FF 90 95 1F 0D 8B 03 23 0C FF A1 8B 03 97 53 21 FF 9A 00 1A 80
  467.             76 94 54 53 1A 80 53 95 54 54 53 1A 80 54 02 1A 80 65 95 54 53 1A
  468.             15 96 54 54 53 1A 16 AA A9 26 FE 00 16 02 1A 80 50 95 54 1B 67 C9
  469.             14 96 54 54 1B 65 92 14 A9 23 0B 0D AB C9 52 51 1C 12 AB AA 26 FD
  470.             DF 1C 0B A8 C9 52 1B 06 AA C9 52 51 1B 4D 16 02 1A 23 94 54 1B FF
  471.             A8 C9 14 95 54 54 1B FF A6 92 14 AB 23 0F FF A6 AB 23 10 FF A1 95
  472.             1F 06 8B 03 23 0F FF B1 00 14 02 14 3C 02 19 05 8B 02 95 53 25 11
  473.             27 D0 1A 25 D1 1A 22 D2 1A 1F D3 1A 1C 95 54 53 1A 1D 96 54 54 53
  474.             1A 1E AC 86 2F 2E 7C 04 1A 2A AB 86 2F 31 7D 03 1A 2D 00 72 95 54
  475.             1B 5F C9 14 96 54 54 1B 5D C9 14 8B 05 03 16 52 14 5C 5C 96 1F 08
  476.             7E 04 04 89 02 50 74 01 95 1F 08 7E 03 03 89 02 4D 74 00 AC 86 2F
  477.             16 AB 86 2F 12 AC AC 87 01 2D 0C AC AC 88 01 2B 0E 8A 01 0B 8A 00
  478.             08 AF AE 36 03 84 DC 80 81 5C 02 1A 80 8B 99 54 53 1A 1D 9A 54 54
  479.             53 1A 1E AF AB 88 01 2E 80 64 1A 80 4F AE AA 31 01 2D 1A 80 59 99
  480.             54 1B 5F C9 14 9A 54 54 1B 5D C9 14 8B 09 03 16 52 14 94 1F 0C 7E
  481.             02 02 8A 00 08 AA 86 2F 02 7C 02 74 04 93 1F 0C 7E 01 01 8A 00 08
  482.             A9 86 2F 02 7D 01 74 03 AA 23 0B 0E AF 86 2F 1C 89 04 FF AD AF AB
  483.             88 01 30 12 A9 C9 52 1B 0D AE 86 2F 09 89 03 FF A4 AE AA 31 01 2F
  484.             14 5C 3C 02 19 0C 99 1F 09 8B 07 AE 36 03 83 DC FF 95 5B 95 51 14
  485.             3C 02 19 09
  486.            )
  487.       CANONICALIZE-TYPE MEMBER TYPEP NOT 2. OR AND DEFSTRUCT-DESCRIPTION
  488.       STRUCTURE 0.
  489.       #S(HASH-TABLE EQ (LONG-FLOAT . 272.) (DOUBLE-FLOAT . 272.)
  490.          (SINGLE-FLOAT . 272.) (SHORT-FLOAT . 272.) (FLOAT . 272.)
  491.          (RATIONAL . 272.) (INTEGER . 272.) (REAL . 272.) (COMPLEX . 230.)
  492.          (SIMPLE-ARRAY . 101.) (ARRAY . 101.)
  493.         )
  494.       * ARRAY UPGRADED-ARRAY-ELEMENT-TYPE
  495.       #Y(LISP::SUBTYPEP-1
  496.          #20Y(00 02 00 00 00 03 A9 BE 52 1D 07 AA AA 31 01 2B 19 03 19 03) *
  497.         )
  498.       COMPLEX NUMBER
  499.       #S(HASH-TABLE EQ (LONG-FLOAT . 10.) (DOUBLE-FLOAT . 10.)
  500.          (SINGLE-FLOAT . 10.) (SHORT-FLOAT . 10.) (FLOAT . 7.) (RATIONAL . 7.)
  501.          (INTEGER . 4.) (REAL . 1.)
  502.         )
  503.       (NUMBER) (RATIONAL REAL NUMBER) (REAL NUMBER) (FLOAT REAL NUMBER) INTEGER
  504.   )  )
  505. #Y(#:TOP-LEVEL-FORM-73 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  506.    SUBTYPE-INTEGER REMOVE-OLD-DEFINITIONS
  507.    #Y(SUBTYPE-INTEGER
  508.       #240Y(00 01 00 00 00 02 A9 2D 00 EB 20 0D A9 59 01 EB 8B 01 23 04 80 9E
  509.             00 19 02 93 53 25 01 72 00 19 06 D6 D6 8C 03 5B A9 83 B6 80 57 7E
  510.             01 00 14 86 35 6C AB A9 79 01 32 03 AA A9 79 01 31 02 7A 01 1A 64
  511.             D6 D6 8C 03 5B 1A 35 00 19 08 C1 1A 1C C1 1A 27 7E 01 00 14 26 FF
  512.             AD 3E 02 8A 01 6B AD 23 03 6A A9 23 03 66 AD AA 31 01 32 EF AC 23
  513.             03 5F A8 23 03 5B AC A9 31 01 31 EE 16 02 7A 01 A9 84 B6 50 AB 95
  514.             1A 15 8C 01 5B A9 83 B6 19 7E 01 00 14 26 FF 72 3E 02 8A 01 07 14
  515.             93 14 3C 02 19 06 16 02 7A 01 1A 63 00 19 04 93 54 53 1A 0B 94 54
  516.             54 53 1A 0C 93 54 1B 71 C1 14 94 54 54 1B 6F C1 14 93 1F 09 7E 01
  517.             01 14 86 2F 02 7C 01 92 1F 09 7E 00 00 14 86 2F 02 7D 00 A9 86 2F
  518.             0D A8 86 2F 09 A9 A9 87 01 2F 03 C0 EB EA A9 A9 3C 02 19 04
  519.            )
  520.       CANONICALIZE-TYPE #S(HASH-TABLE EQ (AND . 105.) (OR . 37.) (MEMBER . 4.))
  521.       0. * INTEGER
  522.   )  )